VERSION 5.00
Object = "{B3FB64BF-91F9-11D7-A482-0008A14158BC}#2.22#0"; "ITGControls.ocx"
Begin VB.Form frmSetupAccountDefaults 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   5145
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8400
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5145
   ScaleWidth      =   8400
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      BackColor       =   &H00F7D9C2&
      Height          =   5070
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8295
      Begin VB.TextBox txtDef13 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6255
         TabIndex        =   79
         Top             =   645
         Width           =   1350
      End
      Begin VB.TextBox txtDef17 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6255
         TabIndex        =   69
         Top             =   2745
         Width           =   1350
      End
      Begin VB.TextBox txtDef18 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6255
         TabIndex        =   68
         Top             =   3045
         Width           =   1350
      End
      Begin VB.TextBox txtDef22 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6255
         TabIndex        =   67
         Top             =   2445
         Width           =   1350
      End
      Begin VB.TextBox txtDef21 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6255
         TabIndex        =   66
         Top             =   2145
         Width           =   1350
      End
      Begin VB.TextBox txtDef12 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6255
         TabIndex        =   65
         Top             =   330
         Width           =   1350
      End
      Begin VB.TextBox txtDef14 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6255
         TabIndex        =   64
         Top             =   945
         Width           =   1350
      End
      Begin VB.TextBox txtDef15 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6255
         TabIndex        =   63
         Top             =   1245
         Width           =   1350
      End
      Begin VB.TextBox txtDef16 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6255
         TabIndex        =   62
         Top             =   1545
         Width           =   1350
      End
      Begin VB.TextBox txtDef23 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   6255
         TabIndex        =   61
         Top             =   1845
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickPDCR 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   60
         Top             =   637
         Width           =   345
      End
      Begin VB.TextBox txtDef02 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   59
         Top             =   645
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickTPCP 
         Height          =   300
         Left            =   7665
         Picture         =   "frmSetupAccountDefaults.frx":014A
         Style           =   1  'Graphical
         TabIndex        =   58
         Top             =   637
         Width           =   345
      End
      Begin VB.CommandButton cmdPickAcceptancePayable 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":0294
         Style           =   1  'Graphical
         TabIndex        =   56
         Top             =   2745
         Width           =   345
      End
      Begin VB.TextBox txtDef24 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   55
         Top             =   2745
         Width           =   1350
      End
      Begin VB.CommandButton Command2 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":03DE
         Style           =   1  'Graphical
         TabIndex        =   53
         Top             =   4245
         Width           =   345
      End
      Begin VB.TextBox txtDef20 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   52
         Top             =   4245
         Width           =   1350
      End
      Begin VB.CommandButton Command1 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":0528
         Style           =   1  'Graphical
         TabIndex        =   50
         Top             =   3945
         Width           =   345
      End
      Begin VB.TextBox txtDef19 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   49
         Top             =   3945
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickAmortization 
         Height          =   300
         Left            =   7665
         Picture         =   "frmSetupAccountDefaults.frx":0672
         Style           =   1  'Graphical
         TabIndex        =   48
         Top             =   1845
         Width           =   345
      End
      Begin VB.TextBox txtVATRATE 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   43
         Top             =   4545
         Width           =   750
      End
      Begin VB.Frame Frame11 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Current MTD"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1080
         Left            =   4590
         TabIndex        =   29
         Top             =   3435
         Width           =   3435
         Begin ITGControls.ITGDateBox dtbFrom 
            Height          =   285
            Left            =   1875
            TabIndex        =   30
            Tag             =   "Order Date"
            Top             =   255
            Width           =   1275
            _ExtentX        =   2249
            _ExtentY        =   503
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   ""
            SendKeysTab     =   -1  'True
            Mandatory       =   -1  'True
         End
         Begin ITGControls.ITGDateBox dtbTo 
            Height          =   285
            Left            =   1875
            TabIndex        =   31
            Tag             =   "Order Date"
            Top             =   645
            Width           =   1275
            _ExtentX        =   2249
            _ExtentY        =   503
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Text            =   ""
            SendKeysTab     =   -1  'True
            Mandatory       =   -1  'True
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            BackColor       =   &H00F7D9C2&
            Caption         =   "To     :"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   1200
            TabIndex        =   47
            Top             =   630
            Width           =   465
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackColor       =   &H00F7D9C2&
            Caption         =   "From :"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   1200
            TabIndex        =   46
            Top             =   255
            Width           =   465
         End
      End
      Begin VB.CommandButton cmdPickVAT 
         Height          =   300
         Left            =   7665
         Picture         =   "frmSetupAccountDefaults.frx":07BC
         Style           =   1  'Graphical
         TabIndex        =   28
         Top             =   1545
         Width           =   345
      End
      Begin VB.CommandButton cmdPickEWT 
         Height          =   300
         Left            =   7665
         Picture         =   "frmSetupAccountDefaults.frx":0906
         Style           =   1  'Graphical
         TabIndex        =   27
         Top             =   1245
         Width           =   345
      End
      Begin VB.CommandButton cmdPickTPCE 
         Height          =   300
         Left            =   7665
         Picture         =   "frmSetupAccountDefaults.frx":0A50
         Style           =   1  'Graphical
         TabIndex        =   26
         Top             =   930
         Width           =   345
      End
      Begin VB.CommandButton cmdPickCOG 
         Height          =   300
         Left            =   7665
         Picture         =   "frmSetupAccountDefaults.frx":0B9A
         Style           =   1  'Graphical
         TabIndex        =   25
         Top             =   322
         Width           =   345
      End
      Begin VB.TextBox txtDef11 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2310
         TabIndex        =   24
         Top             =   3645
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickReturn 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":0CE4
         Style           =   1  'Graphical
         TabIndex        =   23
         Top             =   3645
         Width           =   345
      End
      Begin VB.TextBox txtDef10 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   22
         Top             =   3345
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickSales 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":0E2E
         Style           =   1  'Graphical
         TabIndex        =   21
         Top             =   3345
         Width           =   345
      End
      Begin VB.TextBox txtDef03 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   20
         Top             =   945
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickPDCI 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":0F78
         Style           =   1  'Graphical
         TabIndex        =   19
         Top             =   930
         Width           =   345
      End
      Begin VB.TextBox txtDef09 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   18
         Top             =   3045
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickLP 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":10C2
         Style           =   1  'Graphical
         TabIndex        =   17
         Top             =   3045
         Width           =   345
      End
      Begin VB.TextBox txtDef08 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   16
         Top             =   2430
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickAP 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":120C
         Style           =   1  'Graphical
         TabIndex        =   15
         Top             =   2430
         Width           =   345
      End
      Begin VB.TextBox txtDef07 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   14
         Top             =   2130
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickTDR 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":1356
         Style           =   1  'Graphical
         TabIndex        =   13
         Top             =   2130
         Width           =   345
      End
      Begin VB.TextBox txtDef06 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   12
         Top             =   1830
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickMI 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":14A0
         Style           =   1  'Graphical
         TabIndex        =   11
         Top             =   1830
         Width           =   345
      End
      Begin VB.TextBox txtDef05 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   10
         Top             =   1530
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickRTC 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":15EA
         Style           =   1  'Graphical
         TabIndex        =   9
         Top             =   1530
         Width           =   345
      End
      Begin VB.TextBox txtDef04 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   8
         Top             =   1230
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickAR 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":1734
         Style           =   1  'Graphical
         TabIndex        =   7
         Top             =   1230
         Width           =   345
      End
      Begin VB.TextBox txtDef01 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   2295
         TabIndex        =   6
         Top             =   330
         Width           =   1350
      End
      Begin VB.CommandButton cmdPickCash 
         Height          =   300
         Left            =   3705
         Picture         =   "frmSetupAccountDefaults.frx":187E
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   322
         Width           =   345
      End
      Begin VB.CommandButton cmdPickEWTAP 
         Height          =   300
         Left            =   7665
         Picture         =   "frmSetupAccountDefaults.frx":19C8
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   2145
         Width           =   345
      End
      Begin VB.CommandButton cmdPickEVATAP 
         Height          =   300
         Left            =   7665
         Picture         =   "frmSetupAccountDefaults.frx":1B12
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   2445
         Width           =   345
      End
      Begin VB.CommandButton cmdPickAcct2 
         Height          =   300
         Left            =   7665
         Picture         =   "frmSetupAccountDefaults.frx":1C5C
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   3045
         Width           =   345
      End
      Begin VB.CommandButton cmdPickAcct1 
         Height          =   300
         Left            =   7665
         Picture         =   "frmSetupAccountDefaults.frx":1DA6
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   2745
         Width           =   345
      End
      Begin VB.Label Label47 
         BackColor       =   &H00F7D9C2&
         Caption         =   "TPC Payables"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4695
         TabIndex        =   80
         Top             =   675
         Width           =   1545
      End
      Begin VB.Label Label71 
         BackColor       =   &H00F7D9C2&
         Caption         =   "WHT Account 1"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4695
         TabIndex        =   78
         Top             =   2745
         Width           =   1545
      End
      Begin VB.Label Label72 
         BackColor       =   &H00F7D9C2&
         Caption         =   "WHT Account 2"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4695
         TabIndex        =   77
         Top             =   3045
         Width           =   1545
      End
      Begin VB.Label Label81 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Gov. VAT"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4695
         TabIndex        =   76
         Top             =   2445
         Width           =   1545
      End
      Begin VB.Label Label80 
         BackColor       =   &H00F7D9C2&
         Caption         =   "EWT Payables"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4695
         TabIndex        =   75
         Top             =   2145
         Width           =   1545
      End
      Begin VB.Label Label43 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Cost of Goods"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4695
         TabIndex        =   74
         Top             =   360
         Width           =   1545
      End
      Begin VB.Label Label44 
         BackColor       =   &H00F7D9C2&
         Caption         =   "TPC Expense"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4695
         TabIndex        =   73
         Top             =   975
         Width           =   1545
      End
      Begin VB.Label Label45 
         BackColor       =   &H00F7D9C2&
         Caption         =   "EWT Receivables"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4695
         TabIndex        =   72
         Top             =   1245
         Width           =   1545
      End
      Begin VB.Label Label46 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Input Tax"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4695
         TabIndex        =   71
         Top             =   1545
         Width           =   1545
      End
      Begin VB.Label Label5 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Liability Account"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4695
         TabIndex        =   70
         Top             =   1845
         Width           =   1545
      End
      Begin VB.Label Label8 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Acceptance Payables"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   57
         Top             =   2760
         Width           =   2070
      End
      Begin VB.Label Label7 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Discount"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   54
         Top             =   4245
         Width           =   2070
      End
      Begin VB.Label Label6 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Deferred output Vat"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   51
         Top             =   3945
         Width           =   2070
      End
      Begin VB.Label Label2 
         BackColor       =   &H00F7D9C2&
         Caption         =   "%"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Left            =   3120
         TabIndex        =   45
         Top             =   4620
         Width           =   315
      End
      Begin VB.Label Label1 
         BackColor       =   &H00F7D9C2&
         Caption         =   "VAT Rate"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   44
         Top             =   4545
         Width           =   2070
      End
      Begin VB.Label Label42 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Sales Return"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   42
         Top             =   3645
         Width           =   2070
      End
      Begin VB.Label Label41 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Gross Sales"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   41
         Top             =   3360
         Width           =   2070
      End
      Begin VB.Label Label40 
         BackColor       =   &H00F7D9C2&
         Caption         =   "PDC Issued"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   40
         Top             =   930
         Width           =   2070
      End
      Begin VB.Label Label39 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Loan Payables"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   39
         Top             =   3045
         Width           =   2070
      End
      Begin VB.Label Label38 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Account Payables"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   38
         Top             =   2445
         Width           =   2070
      End
      Begin VB.Label Label37 
         BackColor       =   &H00F7D9C2&
         Caption         =   "TD Receivables"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   37
         Top             =   2130
         Width           =   2070
      End
      Begin VB.Label Label36 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Merchandize Invty"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   36
         Top             =   1830
         Width           =   2070
      End
      Begin VB.Label Label35 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Bounced Checks"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   35
         Top             =   1530
         Width           =   2070
      End
      Begin VB.Label Label34 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Account Receivables"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   34
         Top             =   1230
         Width           =   2070
      End
      Begin VB.Label Label33 
         BackColor       =   &H00F7D9C2&
         Caption         =   "PDC Received"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   33
         Top             =   645
         Width           =   2070
      End
      Begin VB.Label Label32 
         BackColor       =   &H00F7D9C2&
         Caption         =   "Cash Clearing"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   32
         Top             =   360
         Width           =   2070
      End
   End
End
Attribute VB_Name = "frmSetupAccountDefaults"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Object variables

'Recordset variables
Private WithEvents rsHeader As ADODB.Recordset
Attribute rsHeader.VB_VarHelpID = -1

Public sBit As String

'Security Acess Level variables
Public lACNew As Boolean
Public lACEdit As Boolean
Public lACDelete As Boolean
Public lACPost As Boolean
Public lACCancel As Boolean
Public lACPrint As Boolean

Sub SetDataValue()
    txtDef01.Text = GetValue("DEF_CASH", 4)
    txtDef02.Text = GetValue("DEF_PDCR", 4)
    txtDef03.Text = GetValue("DEF_PDCI", 4)
    txtDef04.Text = GetValue("DEF_AR", 4)
    txtDef05.Text = GetValue("DEF_RTC", 4)
    txtDef06.Text = GetValue("DEF_MI", 4)
    txtDef07.Text = GetValue("DEF_TDR", 4)
    txtDef08.Text = GetValue("DEF_AP", 4)
    txtDef24.Text = GetValue("DEF_AcceptancePayable", 4)
    txtDef09.Text = GetValue("DEF_LP", 4)
    txtDef10.Text = GetValue("DEF_SALES", 4)
    txtDef11.Text = GetValue("DEF_RETURN", 4)
    txtDef12.Text = GetValue("DEF_COG", 4)
    txtDef13.Text = GetValue("DEF_TPCP", 4)
    txtDef14.Text = GetValue("DEF_TPCE", 4)
    txtDef15.Text = GetValue("DEF_EWT", 4)
    txtDef16.Text = GetValue("DEF_VAT", 4)
    txtDef17.Text = GetValue("DEF_WTAX1", 4)
    txtDef18.Text = GetValue("DEF_WTAX2", 4)
    
    txtDef19.Text = GetValue("DEF_DEFVAT", 4)
    txtDef20.Text = GetValue("DEF_DISCOUNT", 4)
    
    
    txtDef21.Text = GetValue("DEF_EWT_AP", 4)
    txtDef22.Text = GetValue("DEF_EVAT_AP", 4)
    txtDef23.Text = GetValue("DEF_AMORTIZATION", 4)
    txtVATRATE.Text = GetValue("DEF_VAT_RATE", 4)
    dtbFrom.Text = Format(GetValue("MTDDATEFROM", 4), "mm/dd/yyyy")
    dtbTo.Text = Format(GetValue("MTDDATETO", 4), "mm/dd/yyyy")
End Sub

Sub SaveChanges()
    Set rs = Nothing
    Set rs = New ADODB.Recordset
    rs.Open "select datepart(yy,getdate()) as dDate", cn, adOpenKeyset, adLockReadOnly

    SetValue "DEF_CASH", 4, txtDef01.Text
    SetValue "DEF_PDCR", 4, txtDef02.Text
    SetValue "DEF_PDCI", 4, txtDef03.Text
    SetValue "DEF_AR", 4, txtDef04.Text
    SetValue "DEF_RTC", 4, txtDef05.Text
    SetValue "DEF_MI", 4, txtDef06.Text
    SetValue "DEF_TDR", 4, txtDef07.Text
    SetValue "DEF_AP", 4, txtDef08.Text
    SetValue "DEF_AcceptancePayable", 4, txtDef24.Text
    SetValue "DEF_LP", 4, txtDef09.Text
    SetValue "DEF_SALES", 4, txtDef10.Text
    SetValue "DEF_RETURN", 4, txtDef11.Text
    SetValue "DEF_COG", 4, txtDef12.Text
    SetValue "DEF_TPCP", 4, txtDef13.Text
    SetValue "DEF_TPCE", 4, txtDef14.Text
    SetValue "DEF_EWT", 4, txtDef15.Text
    SetValue "DEF_VAT", 4, txtDef16.Text
    SetValue "DEF_WTAX1", 4, txtDef17.Text
    SetValue "DEF_WTAX2", 4, txtDef18.Text
    SetValue "DEF_EWT_AP", 4, txtDef21.Text
    SetValue "DEF_EVAT_AP", 4, txtDef22.Text
    SetValue "DEF_VAT_RATE", 4, txtVATRATE.Text
   
   
    SetValue "DEF_DEFVAT", 4, txtDef19.Text
    SetValue "DEF_DISCOUNT", 4, txtDef20.Text
   
    SetValue "MTDDATEFROM", 4, dtbFrom.Text
    SetValue "MTDDATETO", 4, dtbTo.Text
    
    SetValue "DEF_AMORTIZATION", 4, txtDef23.Text
    
    cn.BeginTrans
        rsHeader.UpdateBatch adAffectAll
    cn.CommitTrans
    MsgBox "Record/s successfully saved.", vbInformation, msgTtl
    Set rs = Nothing
 End Sub
 
 'Close active window
Public Sub TBCloseWindow()
    Unload Me
End Sub

Private Sub cmdPickAcceptancePayable_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef24)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef24 = frmITGPicker.zCode
End Sub

Private Sub cmdPickAmortization_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef23)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef23 = frmITGPicker.zCode
End Sub

Private Sub Command1_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef11)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef19 = frmITGPicker.zCode
End Sub

Private Sub Command2_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef11)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef20 = frmITGPicker.zCode
End Sub

Private Sub Form_Activate()
    TBBitReload
End Sub

Private Sub Form_Load()
    Set FrmName = Me
    FormSetup
    
    AcessBit Me, GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' AND [Module] = 'SS02'")

    Set rsHeader = New ADODB.Recordset
    
    If rsHeader.State <> adStateOpen Then
        OpenRecordset rsHeader, "*", "SYSTEM_OPTION"
        SetDataValue
    End If
    
    TBBitReload
End Sub

Private Sub Form_Unload(Cancel As Integer)
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
    
    Set rsHeader = Nothing
    
    Set frmSetupUtil = Nothing
    
    lCloseWindow = True
    CloseMenuTab ITGLedgerMain
'
'    'oForm(Me.Tag).Mode = 1
'    'oForm(Me.Tag).Tag = Me.Tag
End Sub

'Reload menu buttons (do not delete this sub)
Public Sub TBBitReload()
    Set FrmName = Me
    BitVisible ITGLedgerMain.tbrMain, True, True
    sBit = "0000000100001000"
    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
End Sub

'Save all changes
Public Sub TBSave()
       SaveChanges
End Sub


Public Function GetValue(param1 As String, param2 As Integer)
On Error GoTo TheSource
    lBoolean = True
    If rsHeader.RecordCount = 0 Then Exit Function
    rsHeader.MoveFirst
    rsHeader.Find ("cCode='" & param1 & "'")
    If param2 = 3 Then
        GetValue = IIf(rsHeader.Fields(3), 1, 0)
    Else
        GetValue = IIf(rsHeader.Fields(4) = Null, "", rsHeader.Fields(4))
    End If
    lBoolean = False
TheSource:
    If lBoolean Then
        If param2 = 3 Then GetValue = False
        If param2 = 4 Then GetValue = ""
    End If
End Function


Sub SetValue(param1 As String, param2 As Integer, param3 As String)
On Error GoTo TheSource
  
    If rsHeader.RecordCount = 0 Then Exit Sub
    rsHeader.MoveFirst
    rsHeader.Find ("cCode='" & param1 & "'")
    If param2 = 3 Then
        rsHeader.Fields(3).Value = IIf(param3 = "0", 0, 1)
    Else
        rsHeader.Fields(4).Value = param3
    End If
TheSource:
    Exit Sub
End Sub

Private Sub cmdPickCash_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef01)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef01 = frmITGPicker.zCode
End Sub

Private Sub cmdPickPDCR_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef02)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef02 = frmITGPicker.zCode
End Sub

Private Sub cmdPickPDCI_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef03)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef03 = frmITGPicker.zCode
End Sub

Private Sub cmdPickAR_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef04)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef04 = frmITGPicker.zCode
End Sub

Private Sub cmdPickRTC_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef05)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef05 = frmITGPicker.zCode
End Sub

Private Sub cmdPickMI_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef06)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef06 = frmITGPicker.zCode
End Sub

Private Sub cmdPickTDR_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef07)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef07 = frmITGPicker.zCode
End Sub

Private Sub cmdPickAP_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef08)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef08 = frmITGPicker.zCode
End Sub

Private Sub cmdPickLP_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef09)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef09 = frmITGPicker.zCode
End Sub

Private Sub cmdPickSales_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef10)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef10 = frmITGPicker.zCode
End Sub

Private Sub cmdPickReturn_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef11)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef11 = frmITGPicker.zCode
End Sub

Private Sub cmdPickCOG_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef12)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef12 = frmITGPicker.zCode
End Sub

Private Sub cmdPickTPCP_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef13)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef13 = frmITGPicker.zCode
End Sub

Private Sub cmdPickTPCE_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef14)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef14 = frmITGPicker.zCode
End Sub

Private Sub cmdPickEWT_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef15)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef15 = frmITGPicker.zCode
End Sub

Private Sub cmdPickVAT_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef16)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef16 = frmITGPicker.zCode
End Sub

Private Sub cmdPickEVATAP_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef22)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef22 = frmITGPicker.zCode
End Sub

Private Sub cmdPickEWTAP_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef21)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef21 = frmITGPicker.zCode
End Sub

Private Sub cmdPickAcct1_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef17)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef17 = frmITGPicker.zCode
End Sub

Private Sub cmdPickAcct2_Click()
    If lPickListActive Then Exit Sub
    sFilterString = Trim(txtDef18)
    frmITGPicker.zType = QAccounts
    frmITGPicker.Show vbModal
    txtDef18 = frmITGPicker.zCode
End Sub


